home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Plus Folder Icons 1.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Files&Folders\Folders"
  5. "UIPATH 2"="Appearance\System\Microsoft Plus!"
  6. "NAME"="3D Folder Icons"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Microsoft Plus 3D Folder Icons"
  9. "TEXT 2"="Restore original Folder icons"
  10. "DESCRIPTION 1"="OPTION #1: This lets you enable the special 3D icons that come as part of Microsoft Plus. This will work with Windows 95 (when Microsoft Plus is installed), and should work with all versions of Windows NT, 98, 2000 and Me."
  11. "DESCRIPTION 2"="OPTION #2: This resets all changes and restores the icons to the Windows defaults. Note that if you have customized icons beforehand, you will loose some of your changes."
  12. "DESCRIPTION 3"="Note that you will need to rebuild the icon cache for these settings to take effect."
  13. "VERSION"="1.34"
  14. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com)"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.neilrt.cwc.net/"
  17. "OSVERSION"="11111"
  18.  
  19. BASE="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons"
  20.  
  21. SUB Plugin_Initialize
  22.  w=GetWinSysDir
  23.  b=FileExists(w + "cool.dll")
  24.  If b=false then
  25.   Call Disable
  26.  end if 
  27. END SUB
  28.  
  29. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  30.  ' Get user's Windows Folder
  31.  W=GetWinSysDir
  32.  
  33.  ' Which button has been clicked?
  34.   i=ElementIndex
  35.   Select Case I
  36.  
  37.  ' Find out if 'Plus!' button has been selected
  38.    Case 1
  39.  ' Change each item to relevent index in cool.dll
  40.  ' Normal Folder
  41.   Call RegWriteValue(BASE & "\3", W & "COOL.DLL,11",1)
  42.  ' Open Folder
  43.    Call RegWriteValue(BASE & "\4", W & "COOL.DLL,18",1)
  44.  ' Start Menu
  45.   Call RegWriteValue(BASE & "\36", W & "COOL.DLL,24",1)
  46.  
  47.  Case 2
  48.  ' Delete all values!
  49.  p=RegReadValue(BASE & "\3")
  50.  if IsEmpty(p)=false then
  51.   Call RegDeleteValue(BASE & "\3")
  52.  end if
  53.  p=RegReadValue(BASE & "\4")
  54.  if IsEmpty(p)=false then
  55.   Call RegDeleteValue(BASE & "\4")
  56.  end if
  57.  p=RegReadValue(BASE & "\36")
  58.  if IsEmpty(p)=false then
  59.   Call RegDeleteValue(BASE & "\36")
  60.  end if
  61.  end select
  62. END SUB
  63.  
  64. SUB Plugin_Terminate
  65. END SUB
  66.